home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #02 (Apr85-Jul85) / modula 2 / modula Vol. 1 #8 / PrintFinder.MOD < prev    next >
Text File  |  1985-05-09  |  359b  |  21 lines
  1. MODULE PrintFinder;
  2.   FROM Terminal IMPORT
  3.      ClearScreen, Write,
  4.      Read, WriteLn, WriteString;
  5.   
  6.   VAR
  7.     FinderName [2e0h] :
  8.         ARRAY [0..16] OF CHAR;
  9.     i : CARDINAL;
  10.     ch : CHAR;
  11.   
  12. BEGIN
  13.   ClearScreen;
  14.   WriteString("Current finder is: ");
  15.   FOR i := 1 TO ORD(FinderName[0]) DO
  16.     Write(FinderName[i]);
  17.   END;
  18.   WriteLn;
  19.   Read(ch);
  20. END PrintFinder.
  21.